#tag Class
Protected Class App
Inherits Application
	#tag Event
		Sub Open()
		  dim t1, t2, t3, t4 As Double
		  dim s1 as String = "start"
		  dim s2 as new sjgText( "start" )
		  dim i as Integer
		  
		  t1 = Ticks
		  for i = 1 to 10000
		    s1 = s1 + "xxxxxxxxxxx"
		    s1 = s1 + "yyyyyyyyy"
		    s1 = "zzzzzzzzzz" + s1
		  next
		  t2 = ticks
		  
		  t3 = Ticks
		  for i = 1 to 10000
		    s2.Append "xxxxxxxxxxx"
		    s2.Append "yyyyyyyyy"
		    s2.Prepend "zzzzzzzzzz"
		  next
		  t4 = ticks
		  
		  dim msg as String = "S1.Len = " + format( s1.Len , "0" ) + EndOfLine
		  msg = msg + "S2.Len = "
		  msg = msg + format( Len( s2.Text ) , "0" ) + EndOfLine
		  msg = msg + "Strings took " + format ( t2 - t1, "0" ) + EndOfLine
		  msg = msg + "Object took " + format ( t4 - t3, "0" ) 
		  
		  MsgBox msg
		End Sub
	#tag EndEvent


	#tag ViewBehavior
	#tag EndViewBehavior
End Class
#tag EndClass
